| !Run for Schema 2

Obey <Obey$Dir>.!Boot

Wimpslot -min 8k -max 8k
Run <Obey$Dir>.Running Schema2 "Schema 2"
If "<Schema2$Running>"="YES" Then Error Schema 2 is already running
Unset Schema2$Running

| Check OS major version number
RMEnsure UtilityModule 3.10 Error This version of Schema 2 will only run on RISC OS 3.10 or later

| Ensure required external resources have been seen by the filer
If "<System$Path>" = "" Then Error Please open a directory display containing !System
If "<Wimp$ScrapDir>" = "" Then Error Please open a directory display containing !Scrap
If "<Choices$Path>" = "" OR "<Choices$Write>"="" Then Error This version of Schema 2 requires an external location to store choices

| Fix for bug in early versions of window manager
RMEnsure BorderUtils 0.02 RMEnsure WindowManager 3.17 RMLoad System:Modules.BorderUtil

| Drawfile module not in ROM until RISC OS 3.60
RMEnsure DrawFile 0.01 RMLoad System:Modules.Drawfile
RMEnsure DrawFile 0.01 Error This application requires the DrawFile module
RMEnsure ColourPicker 0.31 RMLoad System:Modules.Picker
RMEnsure ColourPicker 0.31 Error This application requires ColourPicker 0.31 or later

Set Schema2$Menu <Obey$Dir>
Set Schema2$Bold "Bold Demi"
Set Schema2$Italic "Italic Oblique"
Set Schema2$Medium "Medium Book"
|
|
Set Schema2$TimeFormat "%%24.%mi"
Set Schema2$DateFormat "%zdy %m3 %yr"
|
|
WimpSlot -min 1024K
WimpSlot -min 992k -max 992k

Set Schema2$LogFile <Schema2$Dir>.log
Run <Schema2$Dir>.!RunImage %*0
